| 500 |
How can I select a column
Dim oG2antt as P Dim var_Column as local Dim var_Items as P Dim var_Items1 as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.MarkSearchColumn = .f. oG2antt.SingleSel = .f. oG2antt.FullRowSelect = 1 ' oG2antt.Columns.Add("Column1").Selected = .t. var_Column = oG2antt.Columns.Add("Column1") oG2antt.TemplateDef = "dim var_Column" oG2antt.TemplateDef = var_Column oG2antt.Template = "var_Column.Selected = True" oG2antt.Columns.Add("Column2") var_Items = oG2antt.Items ' var_Items.CellValue(var_Items.AddItem("One"),1) = "One" oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellValue(AddItem(`One`),1) = `One`" var_Items1 = oG2antt.Items ' var_Items1.CellValue(var_Items1.AddItem("Two"),1) = "Two" oG2antt.TemplateDef = "dim var_Items1" oG2antt.TemplateDef = var_Items1 oG2antt.Template = "var_Items1.CellValue(AddItem(`Two`),1) = `Two`" oG2antt.Items.SelectAll() |
| 499 |
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened
Dim oG2antt as P Dim var_Editor as local Dim var_Editor1 as local Dim var_Items as P Dim var_Items1 as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Template = "DefaultEditorOption(20) = 0" // oG2antt.DefaultEditorOption(20) = 0 oG2antt.Template = "DefaultEditorOption(21) = 0" // oG2antt.DefaultEditorOption(21) = 0 oG2antt.Template = "DefaultEditorOption(22) = 0" // oG2antt.DefaultEditorOption(22) = 0 oG2antt.Template = "DefaultEditorOption(23) = 0" // oG2antt.DefaultEditorOption(23) = 0 oG2antt.Template = "DefaultEditorOption(24) = 0" // oG2antt.DefaultEditorOption(24) = 0 oG2antt.Template = "DefaultEditorOption(25) = 0" // oG2antt.DefaultEditorOption(25) = 0 oG2antt.Template = "DefaultEditorOption(26) = 0" // oG2antt.DefaultEditorOption(26) = 0 oG2antt.Template = "DefaultEditorOption(27) = 0" // oG2antt.DefaultEditorOption(27) = 0 ' oG2antt.Columns.Add("Edit").Editor.EditType = 1 var_Editor = oG2antt.Columns.Add("Edit").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 1" ' oG2antt.Columns.Add("Edit").Editor.EditType = 1 var_Editor1 = oG2antt.Columns.Add("Edit").Editor oG2antt.TemplateDef = "dim var_Editor1" oG2antt.TemplateDef = var_Editor1 oG2antt.Template = "var_Editor1.EditType = 1" var_Items = oG2antt.Items ' var_Items.CellValue(var_Items.AddItem(0),1) = 1 oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellValue(AddItem(0),1) = 1" var_Items1 = oG2antt.Items ' var_Items1.CellValue(var_Items1.AddItem(2),1) = 3 oG2antt.TemplateDef = "dim var_Items1" oG2antt.TemplateDef = var_Items1 oG2antt.Template = "var_Items1.CellValue(AddItem(2),1) = 3" |
| 498 |
How can I expand predefined items in a drop down list editor as I type
|
| 497 |
How can I add an extra button to a date picker editor
|
| 496 |
How can I add an extra button to a spin editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oG2antt.DefaultItemHeight = 20 var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 4 var_Editor.AddButton("B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1") var_Editor.ButtonWidth = 20 var_Items = oG2antt.Items var_Items.AddItem(0) var_Items.AddItem(1) |
| 495 |
How can I remove or delete the buttons in the editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1") var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3") var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4") var_Editor.RemoveButton("B1") var_Editor.ButtonWidth = 20 var_Items = oG2antt.Items var_Items.AddItem("Text 1") var_Items.AddItem("Text 2") |
| 494 |
How can I hide the buttons in the editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oG2antt.DefaultItemHeight = 24 var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1") var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3") var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4") var_Editor.ButtonWidth = 0 var_Items = oG2antt.Items var_Items.AddItem("Text 1") var_Items.AddItem("Text 2") |
| 493 |
How can I change the width of the buttons in the editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oG2antt.DefaultItemHeight = 24 var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1") var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3") var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4") var_Editor.ButtonWidth = 24 var_Items = oG2antt.Items var_Items.AddItem("Text 1") var_Items.AddItem("Text 2") |
| 492 |
How can I add extra buttons to an editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1") var_Editor.AddButton("B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2") var_Editor.AddButton("B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3") var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4") var_Items = oG2antt.Items var_Items.AddItem("Text 1") var_Items.AddItem("Text 2") |
| 491 |
is there any function to specify the number of rows / items being visible in a drop down list editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"First item") var_Editor.AddItem(2,"Second item") var_Editor.AddItem(3,"Third item") var_Editor.DropDownRows = 1 var_Editor.PopupAppearance = 1 var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 490 |
How can I change the border for a drop down editor
Dim oG2antt as P Dim var_Editor as P Dim var_Editor1 as local Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 var_Editor.PopupAppearance = 1 oG2antt.Items.AddItem("Today") var_Items = oG2antt.Items ' var_Items.CellEditor(var_Items.AddItem("Today"),0).EditType = 7 var_Editor1 = var_Items.CellEditor(var_Items.AddItem("Today"),0) oG2antt.TemplateDef = "dim var_Editor1" oG2antt.TemplateDef = var_Editor1 oG2antt.Template = "var_Editor1.EditType = 7" |
| 489 |
How can I remove a predefined item in a drop down editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Color").Editor var_Editor.EditType = 17 ' var_Editor.Option(4) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(4) = True" var_Editor.RemoveItem(255) oG2antt.Items.AddItem(255) oG2antt.Items.AddItem(65280) |
| 488 |
How can I remove or clear all predefined items in a drop down editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Color").Editor var_Editor.EditType = 17 var_Editor.ClearItems() var_Editor.AddItem(255,"Red Color") oG2antt.Items.AddItem(255) |
| 487 |
How can I center the predefined items in a drop down editor editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"First item") var_Editor.AddItem(2,"Second item") var_Editor.AddItem(3,"Third item") var_Editor.DropDownAlignment = 1 var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 486 |
How can I right align the items in a drop down editor editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"First item") var_Editor.AddItem(2,"Second item") var_Editor.AddItem(3,"Third item") var_Editor.DropDownAlignment = 2 var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 485 |
How can I specify the width of the drop down editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.DropDownAutoWidth = 0 var_Editor.DropDownMinWidth = 385 var_Editor.EditType = 17 var_Items = oG2antt.Items var_Items.AddItem(255) var_Items.AddItem(65280) |
| 484 |
How can hide the drop down button for an editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.DropDownVisible = .f. var_Editor.EditType = 17 var_Items = oG2antt.Items var_Items.AddItem(255) var_Items.AddItem(65280) |
| 483 |
How can assign a tooltip to a drop down list editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"First item") var_Editor.AddItem(2,"Second item") var_Editor.AddItem(3,"Third item") ' var_Editor.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.ItemToolTip(1) = `This is a tooltip that shows when user hovers the <b>first</b> item`" ' var_Editor.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.ItemToolTip(2) = `This is a tooltip that shows when user hovers the <b>second</b> item`" ' var_Editor.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.ItemToolTip(3) = `This is a tooltip that shows when user hovers the <b>third</b> item`" var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 482 |
How can I lock, disable make read only an editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.Locked = .t. var_Editor.EditType = 3 var_Editor.AddItem(1,"First item") var_Editor.AddItem(2,"Second item") var_Editor.AddItem(3,"Third item") var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 481 |
How can I sort the items in a drop down list editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"Second item") var_Editor.AddItem(2,"First item") var_Editor.AddItem(3,"Third item") var_Editor.SortItems(.t.) var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 480 |
How can I expand an item in the tree or a hierarchy of a drop down editor
Dim oG2antt as P Dim var_Column as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oG2antt.Columns.Add("DropDown") ' var_Column.Def(17) = 1 oG2antt.TemplateDef = "dim var_Column" oG2antt.TemplateDef = var_Column oG2antt.Template = "var_Column.Def(17) = 1" var_Editor = var_Column.Editor var_Editor.EditType = 3 var_Editor.DropDownAutoWidth = 0 var_Editor.AddItem(1,"<b>CObject</b> class",1) var_Editor.InsertItem(2,"<b>CCmdTarget</b> class",2,1) var_Editor.InsertItem(3,"<b>CWnd</b> class",3,2) var_Editor.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1) var_Editor.AddItem(4,"Exceptions",1) var_Editor.InsertItem(7,"<b>System</b> Exceptions",2,4) var_Editor.AddItem(5,"File Services",2) ' var_Editor.ExpandItem(1) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.ExpandItem(1) = True" var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 479 |
How can I display a tree or a hierarchy in a drop down editor
Dim oG2antt as P Dim var_Column as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Column = oG2antt.Columns.Add("DropDown") ' var_Column.Def(17) = 1 oG2antt.TemplateDef = "dim var_Column" oG2antt.TemplateDef = var_Column oG2antt.Template = "var_Column.Def(17) = 1" var_Editor = var_Column.Editor var_Editor.EditType = 3 var_Editor.DropDownAutoWidth = 0 var_Editor.AddItem(1,"<b>CObject</b> class",1) var_Editor.InsertItem(2,"<b>CCmdTarget</b> class",2,1) var_Editor.InsertItem(3,"<b>CWnd</b> class",3,2) var_Editor.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1) var_Editor.AddItem(4,"Exceptions",1) var_Editor.InsertItem(7,"<b>System</b> Exceptions",2,4) var_Editor.AddItem(5,"File Services",2) var_Editor.ExpandAll() var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 478 |
How can I look for items that includes the typed characters in a drop down list editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("DropDown").Editor ' var_Editor.Option(39) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(39) = 1" var_Editor.EditType = 3 var_Editor.AddItem(1,"First item") var_Editor.AddItem(2,"Second item") var_Editor.AddItem(3,"Third item") var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 477 |
How can I keep the selection background color while editor is visible
|
| 476 |
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Editor = oG2antt.Columns.Add("DropDown").Editor ' var_Editor.Option(37) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(37) = 1" var_Editor.EditType = 3 var_Editor.AddItem(1,"First item",1) var_Editor.AddItem(2,"Second item",3) var_Editor.AddItem(3,"Third item",2) var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 475 |
How can I automatically drop down the list editor, when the user starts typing in the editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Editor = oG2antt.Columns.Add("DropDown").Editor ' var_Editor.Option(37) = -1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(37) = -1" var_Editor.EditType = 3 var_Editor.AddItem(1,"First item",1) var_Editor.AddItem(2,"Second item",3) var_Editor.AddItem(3,"Third item",2) var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 474 |
How can I add a Font editor
Dim oG2antt as P Dim var_Editor as local oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Font").Editor.EditType = 10 var_Editor = oG2antt.Columns.Add("Font").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 10" oG2antt.Items.AddItem("Tahoma") |
| 473 |
How can I change the visual appearance for the buttons in the calculator editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 21 ' var_Editor.Option(105) = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(105) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\colorize.gif``)`)" ' var_Editor.Option(106) = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)") oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(106) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\auction.gif``)`)" oG2antt.Items.AddItem(10) |
| 472 |
How can I customize the caption of buttons in the calculator editor
|
| 471 |
How can I customize the caption of buttons in the calculator editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 21 ' var_Editor.Option(104) = "0;1;2;3;4;5;6;7;8;9" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(104) = `0;1;2;3;4;5;6;7;8;9`" oG2antt.Items.AddItem(10) |
| 470 |
How can I specify the width and height of the buttons in the calculator editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 21 ' var_Editor.Option(102) = 32 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(102) = 32" ' var_Editor.Option(103) = 32 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(103) = 32" oG2antt.Items.AddItem(10) |
| 469 |
How can I change the "Cannot divide by zero" message that shows in the calculator editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 21 ' var_Editor.Option(101) = "Divizion by zero" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(101) = `Divizion by zero`" oG2antt.Items.AddItem(10) |
| 468 |
How can I enable or disable executing operations while the calculator editor is focused and closed
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 21 ' var_Editor.Option(100) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(100) = False" oG2antt.Items.AddItem(10) |
| 467 |
How can I add a calculator editor
|
| 466 |
How can I edit a number between a range or interval
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 20 var_Editor.Numeric = -1 ' var_Editor.Option(40) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(40) = 0" ' var_Editor.Option(41) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(41) = 0" ' var_Editor.Option(43) = 5 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(43) = 5" ' var_Editor.Option(44) = 15 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(44) = 15" oG2antt.Items.AddItem(10) |
| 465 |
How can I hide or show the spin in the slider or track bar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 20 ' var_Editor.Option(40) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(40) = 0" oG2antt.Items.AddItem(10) |
| 464 |
How can I add a slider or track bar editor, with a fixed size
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 20 ' var_Editor.Option(41) = 64 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(41) = 64" oG2antt.Items.AddItem(10) |
| 463 |
How can I add a slider or track bar editor, so it covers half of the cell
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 20 ' var_Editor.Option(41) = -50 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(41) = -50" oG2antt.Items.AddItem(10) |
| 462 |
How can I add a slider or track bar editor, so it covers the full cell
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Slider").Editor var_Editor.EditType = 20 ' var_Editor.Option(41) = -100 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(41) = -100" oG2antt.Items.AddItem(10) |
| 461 |
How can I add a slider or track bar editor within a range or interval of numbers
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Spin from 5 to 15").Editor var_Editor.EditType = 20 var_Editor.Numeric = -1 ' var_Editor.Option(43) = 5 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(43) = 5" ' var_Editor.Option(44) = 15 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(44) = 15" oG2antt.Items.AddItem(10) |
| 460 |
How can I add a slider or track bar editor within a range or interval of float numbers
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Spin from 5 to 15").Editor var_Editor.EditType = 20 var_Editor.Numeric = 1 ' var_Editor.Option(43) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(43) = 0" ' var_Editor.Option(44) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(44) = 1" ' var_Editor.Option(40) = "0.01" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(40) = `0.01`" ' var_Editor.Option(42) = "0.01" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(42) = `0.01`" oG2antt.Items.AddItem("0.3") |
| 459 |
How can I add a spin editor within a range or interval of float numbers
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Spin from 5 to 15").Editor var_Editor.EditType = 20 var_Editor.Numeric = 1 ' var_Editor.Option(41) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(41) = 0" ' var_Editor.Option(43) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(43) = 0" ' var_Editor.Option(44) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(44) = 1" ' var_Editor.Option(40) = "0.01" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(40) = `0.01`" oG2antt.Items.AddItem("0.3") |
| 458 |
How can I add a spin editor within a range or interval of numbers
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Spin from 5 to 15").Editor var_Editor.EditType = 20 var_Editor.Numeric = -1 ' var_Editor.Option(41) = 0 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(41) = 0" ' var_Editor.Option(43) = 5 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(43) = 5" ' var_Editor.Option(44) = 15 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(44) = 15" oG2antt.Items.AddItem(10) |
| 457 |
How can I add a slider or track bar editor
Dim oG2antt as P Dim var_Editor as local oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Slider").Editor.EditType = 20 var_Editor = oG2antt.Columns.Add("Slider").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 20" oG2antt.Items.AddItem(10) |
| 456 |
I have check box column, but the check-boxes looks disabled. What can I do
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Check").Editor var_Editor.EditType = 19 ' var_Editor.Option(17) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(17) = 1" var_Items = oG2antt.Items var_Items.AddItem(.f.) var_Items.AddItem(.t.) var_Items.AddItem(.f.) |
| 455 |
How do I add check box column, so the cell value is changed as I click the cells
Dim oG2antt as P Dim var_Column as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.MarkSearchColumn = .f. var_Column = oG2antt.Columns.Add("C") var_Column.Width = 18 var_Column.AllowSizing = .f. var_Editor = var_Column.Editor var_Editor.EditType = 19 ' var_Editor.Option(17) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(17) = 1" oG2antt.Columns.Add("Text") var_Items = oG2antt.Items ' var_Items.CellValue(var_Items.AddItem(.f.),1) = "Check 1" oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellValue(AddItem(False),1) = `Check 1`" ' var_Items.CellValue(var_Items.AddItem(.t.),1) = "Check 2" oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellValue(AddItem(True),1) = `Check 2`" ' var_Items.CellValue(var_Items.AddItem(.f.),1) = "Check 3" oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellValue(AddItem(False),1) = `Check 3`" |
| 454 |
How do I add check box column, so the cell value is changed as I click the cells
Dim oG2antt as P Dim var_Editor as local Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Check").Editor.EditType = 19 var_Editor = oG2antt.Columns.Add("Check").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 19" var_Items = oG2antt.Items var_Items.AddItem(.f.) var_Items.AddItem(.t.) var_Items.AddItem(.f.) |
| 453 |
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control
|
| 452 |
How do I add a vertical scroll bar for a memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 18 ' var_Editor.Option(2) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(2) = True" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 451 |
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 18 ' var_Editor.Option(1) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(1) = True" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 450 |
How can I specify the width or the height for a drop down memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 18 ' var_Editor.Option(7) = 256 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(7) = 256" ' var_Editor.Option(8) = 64 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(8) = 64" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 449 |
How do I add a drop down memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as local Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Edit").Editor.EditType = 18 var_Editor = oG2antt.Columns.Add("Edit").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 18" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 448 |
How do I add a color list editor with my own or custom colors
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Color").Editor var_Editor.EditType = 17 ' var_Editor.Option(4) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(4) = True" var_Editor.ClearItems() var_Editor.AddItem(255,"Red Color") var_Editor.AddItem(16711680,"Blue Color") var_Editor.AddItem(65280,"Green Color") oG2antt.Items.AddItem(255) |
| 447 |
How do I add a color list editor with my own or custom colors
|
| 446 |
How can I show the color's name in a color list editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Color").Editor var_Editor.EditType = 17 ' var_Editor.Option(4) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(4) = True" oG2antt.Items.AddItem(255) |
| 445 |
How do I add a color list editor
Dim oG2antt as P Dim var_Editor as local oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Color").Editor.EditType = 17 var_Editor = oG2antt.Columns.Add("Color").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 17" oG2antt.Items.AddItem(255) |
| 444 |
How can I access my own custom or ActiveX editor
|
| 443 |
How can I add my own custom or ActiveX editor
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.DrawGridLines = -1 oG2antt.DefaultItemHeight = 128 var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 16 var_Editor.UserEditor("MSCAL.Calendar","") var_Items = oG2antt.Items var_Items.AddItem("MSCal.Calendar") var_Items.AddItem("MSCal.Calendar") |
| 442 |
How can I add a hyperlink editor
Dim oG2antt as P Dim var_Editor as local oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Shell.Execute").Editor.EditType = 15 var_Editor = oG2antt.Columns.Add("Shell.Execute").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 15" oG2antt.Items.AddItem("http://www.exontrol.com") oG2antt.Items.AddItem("c:\") |
| 441 |
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select
|
| 440 |
How can I show or hide the rectangle arround progress bar editor
|
| 439 |
How can I hide the caption / percent in the progress bar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.SelForeColor = 0 oG2antt.SelBackColor = 16777088 var_Editor = oG2antt.Columns.Add("Progress").Editor var_Editor.EditType = 13 ' var_Editor.Option(12) = -1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(12) = -1" oG2antt.Items.AddItem(33) |
| 438 |
How can I align the caption in the center of the progress bar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.SelForeColor = 0 oG2antt.SelBackColor = 16777088 var_Editor = oG2antt.Columns.Add("Progress").Editor var_Editor.EditType = 13 ' var_Editor.Option(12) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(12) = 1" oG2antt.Items.AddItem(33) |
| 437 |
How can I align the caption to the right in the progress bar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.SelForeColor = 0 oG2antt.SelBackColor = 16777088 var_Editor = oG2antt.Columns.Add("Progress").Editor var_Editor.EditType = 13 ' var_Editor.Option(12) = 2 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(12) = 2" oG2antt.Items.AddItem(33) |
| 436 |
How can I change the background color for a progress bar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.SelForeColor = 0 oG2antt.SelBackColor = 16777088 var_Editor = oG2antt.Columns.Add("Progress").Editor var_Editor.EditType = 13 ' var_Editor.Option(11) = 255 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(11) = 255" oG2antt.Items.AddItem(33) |
| 435 |
How can I add a progress bar editor
Dim oG2antt as P Dim var_Editor as local oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.SelForeColor = 0 oG2antt.SelBackColor = 16777088 ' oG2antt.Columns.Add("Progress").Editor.EditType = 13 var_Editor = oG2antt.Columns.Add("Progress").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 13" oG2antt.Items.AddItem(33) |
| 434 |
How can I add a button editor
Dim oG2antt as P Dim var_Editor as local oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Button").Editor.EditType = 12 var_Editor = oG2antt.Columns.Add("Button").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 12" oG2antt.Items.AddItem("Just a text") |
| 433 |
How can I show or hide the type of the OLE Object for Photo or a Picture editor
|
| 432 |
How can I add a Photo or a Picture editor
|
| 431 |
How can I hide or show the "System" page in the color editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Color").Editor var_Editor.EditType = 9 ' var_Editor.Option(6) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(6) = False" oG2antt.Items.AddItem(255) |
| 430 |
How can I hide or show the "Palette" page in the color editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Color").Editor var_Editor.EditType = 9 ' var_Editor.Option(5) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(5) = False" oG2antt.Items.AddItem(255) |
| 429 |
How do I add a color editor
|
| 428 |
How do I change the masking character
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Mask").Editor var_Editor.EditType = 8 var_Editor.Mask = "###" var_Editor.MaskChar = 48 oG2antt.Items.AddItem("") |
| 427 |
How do I mask an IP
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("IP").Editor var_Editor.EditType = 8 var_Editor.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}" oG2antt.Items.AddItem("1.2.3.4") |
| 426 |
How do I add a mask editor
|
| 425 |
How to show or hide the week numbers header in a drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(47) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(47) = True" oG2antt.Items.AddItem("Today") |
| 424 |
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(35) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(35) = False" oG2antt.Items.AddItem("Today") |
| 423 |
How do highlight the "Today" date is the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(34) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(34) = True" oG2antt.Items.AddItem("Today") |
| 422 |
How do I show or hide the "Today" button is the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(33) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(33) = False" oG2antt.Items.AddItem("Today") |
| 421 |
How to specify the first day of the week in the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(32) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(32) = 1" oG2antt.Items.AddItem("Today") |
| 420 |
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(31) = "Du Lu Ma Mi Jo Vi Si" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(31) = `Du Lu Ma Mi Jo Vi Si`" oG2antt.Items.AddItem("Today") |
| 419 |
How can I change the name of the months in the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(30) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(30) = `Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre`" oG2antt.Items.AddItem("Today") |
| 418 |
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
Dim oG2antt as P Dim var_Editor as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 ' var_Editor.Option(29) = "Azi" oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(29) = `Azi`" oG2antt.Items.AddItem("Today") |
| 417 |
How can allow empty date to drop down date picker control or a calendar control
|
| 416 |
How can I a drop down date picker control or a calendar control
Dim oG2antt as P Dim var_Editor as local Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Date").Editor.EditType = 7 var_Editor = oG2antt.Columns.Add("Date").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 7" var_Items = oG2antt.Items var_Items.AddItem("Today") |
| 415 |
How can I have an OR combination of my bit values, something like a check-box list editor
|
| 414 |
How do I stop resizing the memo or a multiple lines edit control, while the user types
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 5 ' var_Editor.Option(3) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(3) = False" ' var_Editor.Option(1) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(1) = True" ' var_Editor.Option(2) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(2) = True" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 413 |
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 5 ' var_Editor.Option(1) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(1) = True" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 412 |
How do I add a vertical scroll bar for a memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 5 ' var_Editor.Option(2) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(2) = True" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 411 |
How do I add a memo or a multiple lines edit control
Dim oG2antt as P Dim var_Editor as local Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Edit").Editor.EditType = 5 var_Editor = oG2antt.Columns.Add("Edit").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 5" var_Items = oG2antt.Items ' var_Items.CellSingleLine(var_Items.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = .f. oG2antt.TemplateDef = "dim var_Items" oG2antt.TemplateDef = var_Items oG2antt.Template = "var_Items.CellSingleLine(AddItem(`This is a long text that should break the line, and get it displayed on multiple lines.`),0) = False" |
| 410 |
How to specify the proposed change when the user clicks a spin control.
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 4 var_Editor.Numeric = -1 ' var_Editor.Option(40) = 10 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(40) = 10" var_Items = oG2antt.Items var_Items.AddItem(0) var_Items.AddItem(10) var_Items.AddItem(20) |
| 409 |
How do I add a spin editor that allows only integer values
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 4 var_Editor.Numeric = -1 var_Items = oG2antt.Items var_Items.AddItem(0) var_Items.AddItem(1) var_Items.AddItem(2) |
| 408 |
How do I add a spin editor
Dim oG2antt as P Dim var_Editor as local Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex ' oG2antt.Columns.Add("Edit").Editor.EditType = 4 var_Editor = oG2antt.Columns.Add("Edit").Editor oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.EditType = 4" var_Items = oG2antt.Items var_Items.AddItem(0) var_Items.AddItem(1) var_Items.AddItem(2) |
| 407 |
How do I specify in a drop down list editor, that I do not want to have predefined icon
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"The first item",1) var_Editor.AddItem(2,"The second item",3) var_Editor.AddItem(3,"The third item",2) ' var_Editor.Option(28) = .f. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(28) = False" var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 406 |
How do I add a drop down editor, that allows only predefined values
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Editor = oG2antt.Columns.Add("DropDown").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"The first item",1) var_Editor.AddItem(2,"The second item",3) var_Editor.AddItem(3,"The third item",2) var_Items = oG2antt.Items var_Items.AddItem(1) var_Items.AddItem(2) |
| 405 |
How to allow the editor to work on insert or overtype mode
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 ' var_Editor.Option(200) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(200) = True" ' var_Editor.Option(201) = .t. oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(201) = True" var_Items = oG2antt.Items var_Items.AddItem("000") var_Items.AddItem("111") var_Items.AddItem("222") |
| 404 |
How to set foreground color for a locked, or read only edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.Locked = .t. ' var_Editor.Option(51) = 8421504 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(51) = 8421504" var_Items = oG2antt.Items var_Items.AddItem("000") var_Items.AddItem("111") var_Items.AddItem("222") |
| 403 |
How to set background color for a locked, or read only edit control
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.Locked = .t. ' var_Editor.Option(50) = 8421504 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(50) = 8421504" var_Items = oG2antt.Items var_Items.AddItem("000") var_Items.AddItem("111") var_Items.AddItem("222") |
| 402 |
How to set the number of characters selected, when an EditType editor is opened
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 ' var_Editor.Option(49) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(49) = 1" var_Items = oG2antt.Items var_Items.AddItem("000") var_Items.AddItem("111") var_Items.AddItem("222") |
| 401 |
How to set the starting point of text selected, when an EditType editor is opened
Dim oG2antt as P Dim var_Editor as P Dim var_Items as P oG2antt = topparent:CONTROL_ACTIVEX1.activex var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 ' var_Editor.Option(48) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(48) = 1" ' var_Editor.Option(49) = 1 oG2antt.TemplateDef = "dim var_Editor" oG2antt.TemplateDef = var_Editor oG2antt.Template = "var_Editor.Option(49) = 1" var_Items = oG2antt.Items var_Items.AddItem("000") var_Items.AddItem("111") var_Items.AddItem("222") |
